home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Photobook.dir / 00012.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  1.1 KB  |  44 lines
  1. on startMovie
  2.   global chica, modo, fotoActual
  3.   puppetSound(0)
  4.   set the visible of sprite 2 to 0
  5.   set modo to "manual"
  6.   set num to charToNum(chica) - 64
  7.   set listaChicas to ["juliachannel", "mameyong", "lolita", "nikki", "blondie", "karina"]
  8.   set castAImportar to getAt(listaChicas, num)
  9.   set the fileName of castLib "fotos" to castAImportar
  10.   set fotoActual to 1
  11.   set the visible of sprite 8 to 0
  12.   repeat with x = 20 to 26
  13.     set the visible of sprite x to 0
  14.   end repeat
  15. end
  16.  
  17. on idle
  18.   global modo, fotoActual
  19.   if (the timer > 120) and (modo = "auto") then
  20.     if fotoActual = the number of castMembers of castLib "fotos" then
  21.       set fotoActual to 1
  22.     else
  23.       set fotoActual to fotoActual + 1
  24.     end if
  25.     startTimer()
  26.   end if
  27.   if not soundBusy(1) then
  28.     puppetSound("photobook")
  29.   end if
  30. end
  31.  
  32. on prepareMovie
  33.   global idioma
  34.   if idioma = "french" then
  35.     set the fileName of castLib "idiomas" to the pathName & "french.cst"
  36.   else
  37.     if idioma = "deutch" then
  38.       set the fileName of castLib "idiomas" to the pathName & "deutch.cst"
  39.     else
  40.       set the fileName of castLib "idiomas" to the pathName & "english.cst"
  41.     end if
  42.   end if
  43. end
  44.